home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2009 October / SAN CD 10-2009 CD-ROM 53.iso / pc / system / gdbPopup.dxr / 00008_textboxScroller_control.ls < prev    next >
Encoding:
Text File  |  2009-06-29  |  1.9 KB  |  82 lines
  1. property pMySprite, pFlashRoot, pTargetSpriteNum, pTargetSprite, pTargetMember, pIsInited
  2.  
  3. on beginSprite me
  4.   pMySprite = sprite(me.spriteNum)
  5.   pIsInited = 0
  6. end
  7.  
  8. on enterFrame me
  9.   if not pIsInited then
  10.     if pTargetSpriteNum then
  11.       pFlashRoot = pMySprite.getVariable("_level0", 0)
  12.       pTargetSprite = sprite(pTargetSpriteNum)
  13.       pTargetMember = pTargetSprite.member
  14.       pIsInited = 1
  15.       refreshPage(me)
  16.     end if
  17.   end if
  18. end
  19.  
  20. on mouseWithin me
  21.   if pIsInited then
  22.     if pFlashRoot.scrollVisible then
  23.       if pMySprite.hitTest(_mouse.mouseLoc) = #button then
  24.         if pFlashRoot.scrollActive then
  25.           cursor(290)
  26.         else
  27.           cursor(260)
  28.         end if
  29.       else
  30.         cursor(-1)
  31.       end if
  32.     else
  33.       cursor(-1)
  34.     end if
  35.   else
  36.     cursor(-1)
  37.   end if
  38. end
  39.  
  40. on mouseLeave me
  41.   cursor(-1)
  42. end
  43.  
  44. on GetUrl me, flashString
  45.   if pIsInited then
  46.     if stringp(flashString) then
  47.       flashData = VOID
  48.       do("flashData =" && flashString)
  49.       case flashData[1] of
  50.         "scrollTo":
  51.           pTargetMember.scrollTop = flashData[2]
  52.       end case
  53.     end if
  54.   end if
  55. end
  56.  
  57. on refreshPage me
  58.   if pIsInited then
  59.     viewHeight = pTargetSprite.height
  60.     contentHeight = pTargetMember.height
  61.     pFlashRoot.buildScroller(viewHeight, contentHeight)
  62.     pMySprite.rect.top = pTargetSprite.rect.top
  63.     pMySprite.rect.bottom = pTargetSprite.rect.bottom
  64.     pMySprite.member.viewV = (pMySprite.height - pMySprite.member.height) / 2
  65.     pTargetMember.scrollTop = 0
  66.   end if
  67. end
  68.  
  69. on getPropertyDescriptionList
  70.   spriteList = [0]
  71.   repeat with i = 1 to _movie.lastFrame
  72.     if sprite(i).member <> member(0) then
  73.       if sprite(i).member.type = #text then
  74.         spriteList.add(i)
  75.       end if
  76.     end if
  77.   end repeat
  78.   desc = [:]
  79.   desc.addProp(#pTargetSpriteNum, [#format: #integer, #default: spriteList[1], #comment: "Sprite number to control", #range: spriteList])
  80.   return desc
  81. end
  82.